home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Snippets / ColorIcosahedron 1.0 / README < prev   
Text File  |  1995-10-26  |  2KB  |  47 lines
  1. An itty bitty bytes™ revival of the old 1986 John B. Halleck 3D
  2. animation of an  Icosahedron.
  3.  
  4. I didn't get my C port of it to run completely, yet, so it's not
  5. here.
  6.  
  7. My rendition includes getting its own window from a resource,
  8. rather than using the built-in drawing window of the Pascal
  9. environment - which was originally TML Pascal.
  10.  
  11. One notable point about this program is the animation speed. 
  12. Rather than calculate each set of rotated points prior to each
  13. rotation, the program calculates and and draws each of the 20
  14. frames and  copies the points into memory, then merely graps and
  15. uses them for the display.  The rotation speed really increases
  16. when the ico. has little room to bounce around.  Try it in a
  17. 200x200 window.
  18.  
  19. Of course, it only rotates on one axis.  You can change the axis
  20. by shifting the value assignments in the InitAxis routine.  It
  21. would be cool if you got it to rotate on all 3 axis'.
  22.  
  23. Anyway, there's an AD module that duplicates this thing, but in
  24. color.
  25.  
  26. Enjoy!
  27.  
  28. kenlong@netcom.com
  29.  
  30. ---
  31.  
  32. This version is in color, using my glue routines from Offscreen Toys,
  33. and adding a palette and some much needed delays.
  34.  
  35. The program is, of course, quite dated even when in color, since
  36. QuickDraw 3D would do the job much better, but at least it demonstrates
  37. some useful things, like auto-using a palette through a "pltt" resource,
  38. using glue code for compatibility, string centering etc.
  39.  
  40. At this time, it is for Think Pascal only. I didn't have the time and
  41. energy to port it to MWP.
  42.  
  43. /Ingemar
  44.  
  45. PS: Second version, with some fixes in the port-setting that should make
  46. it run under some systems where the first version failed.
  47.